function readAllText(path,encoding){

  return cache("readAllText:" + path,function(){

    encoding = encoding || "utf-8";    

    path = Server.MapPath(path);

    var fso = Server.CreateObject("Scripting.FileSystemObject");

    if(!fso.FileExists(path)){

      throw new Error(path + " is not exists!");    	

    }

    var stream = Server.CreateObject("adodb.stream");

    stream.Mode = 3;

    stream.Type = 2;

    stream.Open();

    stream.Charset = encoding;

    stream.LoadFromFile(path);

    var content = stream.readText();

    stream.Close();

    stream = null;

    return content;

  });



}

//缓存内容到Application

function cache(id,callback){    

  //方便调试    

  var debug = true;



  if(debug){   		   		

    Application.Lock();

    Application.Contents.RemoveAll();   		

    Application.UnLock();

  }

  if(Application(id)){    	

    content = String(Application(id));

  }else{		

    content = callback();

    Application(id) = content;

  }



  return content;

}

//导入模块

//path 相对于根目录的路径

//因为是单文件入口，路径的计算都是从根目录开始

function require(path){	    

  var content = cache("require:" + path,function(){    		

    var str = readAllText(path);

    //去掉<script></script>标签

    return str.replace(/(\s*)\u003cscript(.+?)\u003e/i,"")

      .replace(/\u003c\/script\u003e(\s*)$/i,"")

    //去掉条件编译选项

      .replace(/\u003c%\s*@.*%\u003e/g,"")

    //asp脚本的开始结束符号

      .replace(/\u003c%/g,"")

      .replace(/%\u003e/g, "") + "return exports";



  });       



  //new Function 函数体内的没有定义的变量exports，会自动注册为全局变量

  return new Function(content)();

}

//模板编译函数

function compile(path,data){

  var data = data || {};

  var fn_body = cache("compile:" + path,function(){

    var str = readAllText(path);

    return "var p=[];"

      + "p.push('"

      +str	               

      .replace(/<!--#include file=["'](.*)['"]-->/g,function(m,filePath){

	filePath = path.substring(0,path.lastIndexOf("/") + 1) + filePath;

	return compile(filePath);

      })

      .replace(/<!--#include virtual=["'](.*)['"]-->/g,function(m,filePath){

	return compile(filePath);

      })                   

      .replace(/\u003c%\s*@.*%\u003e/g,"")

    //删除单行注释

      .replace(/\/\/[^\n]*/g,"")

      .replace(/[\r\t\n]/g, " ")

      .split('\\').join("\\\\")

      .split("\u003c%").join("\t")

      .replace(/((^|%\u003e)[^\t]*)'/g, "$1\r")

      .replace(/\t=(.*?)%\u003e/g, "',$1,'")                       

      .split("\t").join("');")

      .split("%\u003e").join("p.push('")

      .split("\r").join("\\'")

      + "');return p.join('');"

  });



  var fn =  function(d) {

    var p, k = [], v = [];

    for (p in d) {

      k.push(p);

      v.push(d[p]);

    };

    return (new Function(k, fn_body)).apply(d, v);

  };          

  return fn(data);

}

//输出模板内容

function render(path,data){

  Response.Write(compile(path,data));

}

//数据库查询函数

function query(sql,params,callback){	

  params = params || null;

  var result = [];

  var cmd = Server.CreateObject("Adodb.Command");

  cmd.ActiveConnection = CONN_STRING;

  cmd.CommandText = sql;    

  cmd.CommandType = 1;     //adCmdText 1 adCmdStoredProc 4    



  if(callback){

    result = callback(params,cmd);    	

  }else{    

    var rs = cmd.execute(null,params);	    

    if(rs.State == 1){		

      while(!rs.EOF){

	var obj = {};

	for(var i = 0; i < rs.Fields.Count; i++){

	  var name = rs.Fields(i).Name;

	  var value = rs.Fields(i).Value;

	  obj[name] = value;

	}

	result.push(obj);

	rs.MoveNext();

      }

      rs.close();

    }    

    rs = null;

  }

  cmd = null;

  return result;

}

function Upload(){

  this.MAXSIZE = 30 * 1024 * 1024;

  this.filter = "jpg|png|gif|bmp|doc|docx|txt|zip|rar";

  var data = {};	// 存储表单对象	

  this.parseForm = function()	{

    var totalBytes = Request.TotalBytes;		

    if(totalBytes > this.MAXSIZE) return "文件大小超过限制。";

    var boundary = Request.ServerVariables("Http_Content_Type").Item || "";

    boundary =  (boundary.match(/boundary=(.+)/) || [])[1];

    if(!boundary) return "非文件上传表单";

    //将boundary转换为用16进制表示的字符串

    boundary = "2d2d" + boundary.replace(/[\w\-]/g, function(m){ return m.charCodeAt(0).toString(16); });



    var xml = Server.CreateObject("Microsoft.XMLDOM");		

    var root = xml.createElement("root");

    //指定节点的数据类型为bin.hex

    root.dataType="bin.hex";

    //创建一个recordset对象

    var rs = Server.CreateObject("adodb.recordset");

    //增加一个二进制类型的字段

    rs.fields.Append("bin",205,-1);	

    rs.Open();

    rs.AddNew();

    var readBytes = 0; bufferSize = 200000;

    //分块读入请求数据	

    while(Response.IsClientConnected() && readBytes < totalBytes){

      rs(0).appendChunk(Request.BinaryRead(bufferSize));			

      readBytes += bufferSize;								

    }		

    root.nodeTypedValue = rs(0).value; rs.close();	

    //用boundary分割数据，去头，去尾			

    var multipart = root.text.split(boundary);multipart.shift(); multipart.pop();

    var re = new RegExp("\\.(?:" + this.filter + ")$", "i");		

    for(var i = 0; i < multipart.length; i++){					

      //找到两个回车换行符号的位置

      var indexOfDoubleCRLF = multipart[i].indexOf("0d0a0d0a");		

      //去掉开头的回车换行符号，然后用%分隔每个字节

      var header = multipart[i].slice(4, indexOfDoubleCRLF).replace(/(\w{2})/g, "%$1");			

      header = decodeURIComponent(header);

      var filename = (header.match(/filename="(.+?)"/i) || [])[1] || "";

      filename = (filename.match(/([^\\\/]+)$/) || [])[1];			

      if(filename && !re.test(filename)) return "不允许的文件类型。";

      // 查找两个空行，忽略最后一个空行			

      root.text = multipart[i].slice(indexOfDoubleCRLF + 8, -4);

      var fieldName = (header.match(/name="(.+?)"/i) || [])[1] || "";

      if(!data[fieldName]) data[fieldName] = [];

      data[fieldName].push(

	{

	  filename : filename, 

	  size : root.text.length / 2,	

	  value : filename ? root.nodeTypedValue : decodeURIComponent(root.text.replace(/(\w{2})/g, "%$1")),				

	  saveAs:function(filepath){

	    var stream = Server.CreateObject("adodb.stream");

	    stream.type = 1;						

	    stream.open();

	    stream.write(this.value);

	    stream.savetofile(filepath);

	    stream.close();	

	  },				

	  toString: function(){

	    return this.value;

	  }

	});					

    }



    return "OK";

  }

  this.getField = function(fieldName)

  {

    var item = data[fieldName] || [];

    return item.length < 2 ? item[0] : item;

  }

}

exports = new Upload();